source('~/Desktop/human_capital/Supplementary Material/sat.R')
x = rnorm(10^6, 1060, 400)
ineq(x)
hist(x)
source('~/Desktop/human_capital/Supplementary Material/sat.R')
ineq(x)
